﻿Public Class frm_cliente
    Public cli As cliente
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Dim res As cliente = New cliente()
        res.dni = Me.txt_dni.Text
        res.apellido = Me.txt_ape.Text
        res.nombre = Me.txt_nom.Text
        res.email = Me.txt_ema.Text
        Me.cli = res
        Me.Close()
    End Sub
End Class